home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / power basic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  815b  |  30 lines
  1. 10 print"[147]":poke36879,30
  2. 20 print"note:"
  3. 25 print"this program  is"
  4. 30 print"designed to be used"
  5. 35 print"as a subroutine for"
  6. 40 print"fast character set"
  7. 45 print"transfer in your own"
  8. 50 print"programs.  see the"
  9. 55 print"march gazette article"
  10. 60 print"for proper use."
  11. 65 print"to reload menu, press"
  12. 70 print"run-stop/restore, then";
  13. 75 print"type load"chr$(34)"menu"chr$(34)",8"
  14. 90 poke56,28:clr:poke36869,255
  15. 100 ad=828:rem starting address
  16. 110 fori=adtoad+38:reada:pokei,a:x=x+a:next
  17. 120 ifx<>6044thenprint"error in data statements.":stop
  18. 130 sysad
  19. 140 data 173,5,144,41,3,10,10
  20. 150 data 105,16,133,254,169
  21. 160 data 128:rem 132,136, or 140 for other char sets
  22. 170 data 133,252,169,0,133,251,133
  23. 180 data 253,168,162
  24. 190 data 2:rem change to 6 to move 192 chars
  25. 200 data 177,251,145,253
  26. 210 data 200,208,249,230,252,230,254
  27. 220 data 202,208,242,96
  28. 1000 fori=7168to7175:reada:pokei,a:next
  29. 1010 data 60,66,165,129,165,153,66,60
  30.